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MODULE RTB 


“~ 
ar 
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E ‘Write RT-11 bootstrap’ 
TB 
tT = 'v64-000" 
BEGIN 


' 
eeRe RAE AEAAAHAAAAAAAAAAAHAAAKETEKHAATAREKER HEH KARA eeeHeeReeeeeeeeeeeene 


'@ 

‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

tt DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


® 

® 

7 

e 

® 

& 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR “ANY OTHER 
is COPIES. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TOANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
® 

s 
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't TRANSFERRED. 


te THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
+ ae eoket itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
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te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See RRR AAE AEA AAAAARAAAAAAAAAAAAAAAAATA RARER ARAAEAERAARARARRE AAAS 
' 


ee 
i FACILITY 
Systes build. 


i ABSTRACT: 
i This is a propran te write RT-11 bootstrap blocks that is required to 


oo SSSSSssssssssssss 
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ooo 
Coooo 
So 


$ build console media. 
4 0 i ENVIRONMENT: 
& 1 i VAX/VMS user mode. Sufficient privilege to execute write logical block 
? § a is required for the output volume. 
6 4 i 
? 45 AUTHOR: M. Jack, CREATION DATE: 06-Sep-1981 
: be? MODIFIED BY: 
4 8 iee 
2 
§ 26 LIBRARY ‘SYSSLIBRARY:STARLET'; 
5 PSECT PLIT = S$CODES; 
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-11 
SVMSMASTER: cUTiL32. SRCIRTB.B32;1 (2) 


; ROUTINE RTB= 
$ hed 
8 i FUNCTIONAL DESCRIPTION: 
4 This is the main routine for the RTB utility. 
1 i INPUT PARAMETERS: 
$06 Standard VMS activation parameters (not used). 
064 i IMPLICIT NPUTS: 
065 ! cal names RTBSINPUT and RTBSOUTPUT for the input file and output 
98 ~ ume to be processed. 
068 1 | OUTPUT PARAMETERS: 
53 ‘ NONE 
070 ! 
fa ! IMPLICIT OUTPUTS: 
8 ie ! NONE 
07 ! 
0074 ! ROUTINE VALUE: 
R202 } Standard VMS completion code. 
0079 i SIDE EFFECTS: 
th Five blocks of the input file are copied to the output volume. 
gH | 
081 
pORs 
008 


S 
4 


INPUT_FAB: $FAB_DECL, FAB used for input file Lookup 
INPUT_ CHAN: WORD, i Channel assigned to input file 

od : ! Channel assigned to output volume 
STATUS, General status variable 


10SB: VECTORC4,WORDJ; ! 1/0 status block 
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! Open the file referenced by the logical name RTBSINPUT, which must be 
e 


equated to CONSOL.SYS in the appropriate directory. 


0094 
4944 $FAB ey ie 
% FNA=UPLIT 1 BYTEC*RIBS INPUT: 2°), 
i 4 2 aa RTBSINPUT:'), 
39 STATUS = SOPEN( 
1 IF NOT “STATUS. THEN 4 RETURN nastatus: 
: ; INPUT_CHAN = .INPUT_FABLFABSL_STV); 
1 
1 ! Assi gn a channel to the volume referenced by the logical name RTBSOUTPUT, 
! 5 iw which is the console medium being built. 
1 STATUS = SASSIGN(DEVNAM=SDESCRIPTOR('RTBSOUTPUT:"), CHAN=OUTPUT_CHAN) ; 
: 3 IF NOT .STATUS THEN RETURN .STATUS; 
110 
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BEGIN 
LOCAL 
BUFFER: VECTOR(C512*5,BYTEJ, ! 1/0 buffer 
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Read the first five blocks of the input file. 
STATUS = $0 


Jou 
FUNC=10$_READVBLK, 
CHAN=. INPUT_CHAN, 


& 
mn 
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P2= 
pPs= 

Lf STA aire THEN STATUS = .10SB(0) 
NOT .STATUS THEN RETURN ear 


11 
1 
1 
1 
F 
13 
18 
19 
0 
4 ! Write virtual block 1 of the input file into g jogtcel block 0 of the output 
5 volume, and write virtual blocks 2 through 5 o logical blocks 2 through 5. 
5 STATUS = $010W( 
8 ee yh oy WRITELBLK, 
9 CHAN OUTPUT_CHAN, 
0 10SB=i 
4 
8 
9 
40 
zi 
a3 
44 
45 
46 
4 
4 
4 
5 


preston 
IF STATUS THEN STATUS = .10SBCO); 
IF NOT .STATUS THEN RETURN .STATUS; 
STATUS = $Q]0W( 
FUNC=108 WRITELBLK, 
CHAN =, QUTPUT_CHAN, 

OSB=10SB, 
pits. 


2); 
STATUS THEN STATUS = .10SBL0): 
OT .STATUS THEN RETURN .STATUS; 


ze 


4 } Return success. 
9 2 SS$_NORMAL 
0 1 END; 
-TITLE RTB Write RT-11 bootstrap 
-IDENT \v04-000\ 


-PSECT SCODES,NOWRT.2 


MA 54 55 50 ef 49 4 & 54 28 0000 P.AAA: .ASCII \RTBSINPUT:\ z 

3A 4 55 50 54 5 4F 4 & 54 Baye P. AAC: tf emanates: BR 
90000008 0018 P.AAB: .LONG 11 : 

0000000" 0001C¢ “ADDRESS P.AAC F 


-EXTRN SYSSOPEN, SYSSASSIGN 
~-EXTRN SYSS$QIOW 


007C 00000 RTB: -WORD Save R2,R3,R4,R5,R6 ; 0054 
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RTB Write RT-11 bootstrap Sep- VAX-11 Bliss-32 V4.0-742 e S 
v04-000 12: a 138 94: 32: $8 DISKSVMSMASTER: CUTIL32.SRCIRTB.B32;1 i vt 
56 000009006 00 a8 MOVAB SYS$QIOW, R6 : ; 

E FSAG E > £35108 : ; 

0050 8F 00 6E 06 ¢ MOVC a8 (SP), od, #80, $RMS_PTR : ; 
Oc AE 5008 F 8B 1 MOVW of 9483 SRMS_PTR : ; 
10 AE 00020000 8F p 19 MOVL #131072, $RMS_PTR+4 F : 
AE ; MOVE #2, $RMS -PTR#2 : ; 

e AE 9 9 MOVB #2, $RMS~PTR+ : ; 
AE BO AF 3 0 MOVAB P.AAA, $RMS_PTR+44 ; : 

40 AE pe OA 20 0 MOVE #10. “Sais _PTR+52 ; : 
000000006 90 j FB 005 CALLS 41 SYSSOPEN : ; 
18 AE 80 0943 MOVW INPUT FAB+12, INPUT_CHAN : 3 

7E 7C 00047 CLRQ (SP) : ; 

08 AE OF 0049 PUSHAB OUTPUT. CHAN : : 

AS AF «OF 0004C PUSHAB : ; 

000000006 00 04 FB O04 CALLS “i SYSSASSIGN : : 
77 0 E 0056 BLBC STATUS, 2$ : ; 

7E 7C 00059 CLRQ  =(SP) : : 

7E oi 7D 00058 MOV = #1, =(SP) : ; 

7E OA0O «BF CBC 00056 MOVZ2WL #2560, -(SP) : ; 

70 AE 9F 0006 PUSHAB BUFFER : ; 

ve 7 90066 CLRQ = =(SP) : ; 

24 AE 9F 000 PUSHAB 10SB : ; 

31 bp 00068 PUSHL #49 : ; 

7E 52 3c 0006D MOVZWL INPUT_CHAN, =(SP) : ; 

7E D4 00070 CLRL 5 isp) : : 

66 0c FB 90072 CALLS #12, SYS$Q10W : ; 

58 50 : 0007 LBC = STATUS, 2$ : ; 

50 04 AE 3C 00078 MOVZWL 10SB, STATUS : ; 

51 50 E9 0007¢ LBC «STATUS, 2 : ; 

7E 7C OOO7F CLRQ  =(SP) : ; 

7E 7C 00081 CLRQ = =(SP : ; 

7E 0200 8F 3¢ 00085 MOVZWL #512, -(SP) : ; 

70 AE 9F 00088 PUSHAB BUFFE : ; 

7E 7C 00088 CLRQ ss =(SP : ; 

24 AE 9F 0008D PUSHAB 1088 ; ; 

20 pp 9090 PUSHL #32 ; ; 

7E 28 «AE 3C 0009 MOVZWL OUTPUT.CHAN, -<SP) : : 

7E D4 0096 LRL 5igP) : : 

6S 0 FB 9009 CALLS #12, SYS$QIOW : ; 

32 5 : 0098 STATUS, : : 

0 04 Ar 3 009 MOVZWL I0SB, STATUS : ; 

2B 3 E Ad 1$: BLBC STATUS, 2$ ; : 

( C OA CLRQ =(SP) : ; 

7E 0 7D OOOA ova 43 ; ; 

7E 0800 F 3C 6 AA MOVZ2WL #2048, -(SP) ; : 

027 e OF AF PUSHAB BUFFER+S1 ; : 

—E 7C 000B Q <=(SP : 3 

24 AE 9F 0008 PUSHAB 10SB : ; 

2 pp PUSHL # : : 

7E 28 AE 5¢ BA MOV ZL OUTPUT_CHAN, -(SP) 3 

6 of FB ch CALLS #12, SYS$QI1OW ; : 

A t ¢ BLBC STATUS ; : 

0 04 AE 3¢ 000C6 MOVZWL OSB, STATUS ; : 


RTB Write RT-11 bootstrap 
v04-000 
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N11 
1ea8Sb=488 FG:528:58 | Pehle teRe tiles eacaare.032:1°2% cos 

0 £9 Q00CA BLBC STATUS, 28 £0144 

95 34 66 aB9e0 move, RO ; 0150 


; Routine Size: 209 bytes. Routine Base: S$CODE$ + 0020 


12 
RTB Write RT=-11 bootstra 18-4 =1984 19:46 VAX=-11 Bliss=-32 V4.0-742 
04-000 4 eageei8be P8i58i3e Pelee Re it se eecaare.ese:1°2™ sf 


188 182 0 ELuDon 


2 PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 241 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


: oosesese Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
; _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 51 0 581 00:01.0 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RTB/OBJ=OBJ$:RTB MSRC$:RTB/UPDATE=(ENHS$:RTB) 
; Size: 209 code + 32 data bytes 

Run Time: :06. 

Elapsed Time: 09:11 -6 

Lines/CPU Min: 1341 


Library Statistics 


ey Ah Oty? 31341 
poy Used: 106 pages 
Compilation Complete 
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